| / Language/OS - Multiplatform Resource Library
/ LANGUAGE OS.iso / a_utils / perl / mac-perl / mcprl401.bin / Perl_appl / t / comp / multiline.t
| < prev | next > |
| MacBinary | 1992-01-05 | 1.5 KB | [TEXT/MPS ] |
MacOS 8.1
|
Win98
|
DOS
browse contents |
view JSON data
|
view as text| Confidence | Program | Detection | Match Type | Support |
|---|---|---|---|---|
| 66% | dexvert | E-Tracker Chiptune (music/eTracker) | ext | Supported |
| 10% | dexvert | MacBinary (archive/macBinary) | fallback | Supported |
| 1% | dexvert | Simis (archive/simis) | ext | Unsupported |
| 1% | dexvert | TADS (other/tads) | ext | Unsupported |
| 1% | dexvert | Text File (text/txt) | fallback | Supported |
| 100% | file | MacBinary II, Sun Jan 5 15:16:52 1992, modified Sun Jan 5 15:16:52 1992, creator 'MPS ', type ASCII, 805 bytes "multiline.t" | default (weak) | |
| 99% | file | a ./perl script executable (binary data), at 0x3a5 428 bytes resource | default (weak) | |
| 98% | file | a ./perl script executable (binary data) | default (weak) | |
| 97% | file | data | default | |
| 74% | TrID | Macintosh plain text (MacBinary) | default | |
| 25% | TrID | MacBinary 2 | default (weak) | |
| 100% | siegfried | fmt/1762 MacBinary (II) | default | |
| 100% | lsar | MacBinary | default |
| id metadata | |
|---|---|
| key | value |
| macFileType | [TEXT] |
| macFileCreator | [MPS ] |
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 0b 6d 75 6c 74 69 6c | 69 6e 65 2e 74 00 00 00 |..multil|ine.t...|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 00 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 03 25 00 | 00 01 ac a5 8d 18 34 a5 |......%.|......4.|
|00000060| 8d 18 34 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |..4.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 f2 66 00 00 |........|.....f..|
|00000080| 23 21 2e 2f 70 65 72 6c | 0d 0d 23 20 24 48 65 61 |#!./perl|..# $Hea|
|00000090| 64 65 72 3a 20 6d 75 6c | 74 69 6c 69 6e 65 2e 74 |der: mul|tiline.t|
|000000a0| 2c 76 20 34 2e 30 20 39 | 31 2f 30 33 2f 32 30 20 |,v 4.0 9|1/03/20 |
|000000b0| 30 31 3a 35 30 3a 31 35 | 20 6c 77 61 6c 6c 20 4c |01:50:15| lwall L|
|000000c0| 6f 63 6b 65 64 20 24 0d | 0d 70 72 69 6e 74 20 22 |ocked $.|.print "|
|000000d0| 31 2e 2e 35 5c 6e 22 3b | 0d 0d 6f 70 65 6e 28 74 |1..5\n";|..open(t|
|000000e0| 72 79 2c 27 3e 43 6f 6d | 70 2e 74 72 79 27 29 20 |ry,'>Com|p.try') |
|000000f0| 7c 7c 20 28 64 69 65 20 | 22 43 61 6e 27 74 20 6f ||| (die |"Can't o|
|00000100| 70 65 6e 20 74 65 6d 70 | 20 66 69 6c 65 2e 22 29 |pen temp| file.")|
|00000110| 3b 0d 0d 24 78 20 3d 20 | 27 6e 6f 77 20 69 73 20 |;..$x = |'now is |
|00000120| 74 68 65 20 74 69 6d 65 | 0d 66 6f 72 20 61 6c 6c |the time|.for all|
|00000130| 20 67 6f 6f 64 20 6d 65 | 6e 0d 74 6f 20 63 6f 6d | good me|n.to com|
|00000140| 65 20 74 6f 2e 0d 27 3b | 0d 0d 24 79 20 3d 20 27 |e to..';|..$y = '|
|00000150| 6e 6f 77 20 69 73 20 74 | 68 65 20 74 69 6d 65 27 |now is t|he time'|
|00000160| 20 2e 20 22 5c 6e 22 20 | 2e 0d 27 66 6f 72 20 61 | . "\n" |..'for a|
|00000170| 6c 6c 20 67 6f 6f 64 20 | 6d 65 6e 27 20 2e 20 22 |ll good |men' . "|
|00000180| 5c 6e 22 20 2e 0d 27 74 | 6f 20 63 6f 6d 65 20 74 |\n" ..'t|o come t|
|00000190| 6f 2e 27 20 2e 20 22 5c | 6e 22 3b 0d 0d 69 66 20 |o.' . "\|n";..if |
|000001a0| 28 24 78 20 65 71 20 24 | 79 29 20 7b 70 72 69 6e |($x eq $|y) {prin|
|000001b0| 74 20 22 6f 6b 20 31 5c | 6e 22 3b 7d 20 65 6c 73 |t "ok 1\|n";} els|
|000001c0| 65 20 7b 70 72 69 6e 74 | 20 22 6e 6f 74 20 6f 6b |e {print| "not ok|
|000001d0| 20 31 5c 6e 22 3b 7d 0d | 0d 70 72 69 6e 74 20 74 | 1\n";}.|.print t|
|000001e0| 72 79 20 24 78 3b 0d 63 | 6c 6f 73 65 20 74 72 79 |ry $x;.c|lose try|
|000001f0| 3b 0d 0d 6f 70 65 6e 28 | 74 72 79 2c 27 43 6f 6d |;..open(|try,'Com|
|00000200| 70 2e 74 72 79 27 29 20 | 7c 7c 20 28 64 69 65 20 |p.try') ||| (die |
|00000210| 22 43 61 6e 27 74 20 72 | 65 6f 70 65 6e 20 74 65 |"Can't r|eopen te|
|00000220| 6d 70 20 66 69 6c 65 2e | 22 29 3b 0d 24 63 6f 75 |mp file.|");.$cou|
|00000230| 6e 74 20 3d 20 30 3b 0d | 24 7a 20 3d 20 27 27 3b |nt = 0;.|$z = '';|
|00000240| 0d 77 68 69 6c 65 20 28 | 3c 74 72 79 3e 29 20 7b |.while (|<try>) {|
|00000250| 0d 20 20 20 20 24 7a 20 | 2e 3d 20 24 5f 3b 0d 20 |. $z |.= $_;. |
|00000260| 20 20 20 24 63 6f 75 6e | 74 20 3d 20 24 63 6f 75 | $coun|t = $cou|
|00000270| 6e 74 20 2b 20 31 3b 0d | 7d 0d 0d 69 66 20 28 24 |nt + 1;.|}..if ($|
|00000280| 7a 20 65 71 20 24 79 29 | 20 7b 70 72 69 6e 74 20 |z eq $y)| {print |
|00000290| 22 6f 6b 20 32 5c 6e 22 | 3b 7d 20 65 6c 73 65 20 |"ok 2\n"|;} else |
|000002a0| 7b 70 72 69 6e 74 20 22 | 6e 6f 74 20 6f 6b 20 32 |{print "|not ok 2|
|000002b0| 5c 6e 22 3b 7d 0d 0d 69 | 66 20 28 24 63 6f 75 6e |\n";}..i|f ($coun|
|000002c0| 74 20 3d 3d 20 33 29 20 | 7b 70 72 69 6e 74 20 22 |t == 3) |{print "|
|000002d0| 6f 6b 20 33 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |ok 3\n";|} else {|
|000002e0| 70 72 69 6e 74 20 22 6e | 6f 74 20 6f 6b 20 33 5c |print "n|ot ok 3\|
|000002f0| 6e 22 3b 7d 0d 0d 24 5f | 20 3d 20 60 63 61 74 65 |n";}..$_| = `cate|
|00000300| 6e 61 74 65 20 43 6f 6d | 70 2e 74 72 79 60 3b 0d |nate Com|p.try`;.|
|00000310| 0d 69 66 20 28 2f 2e 2a | 5c 6e 2e 2a 5c 6e 2e 2a |.if (/.*|\n.*\n.*|
|00000320| 5c 6e 24 2f 29 20 7b 70 | 72 69 6e 74 20 22 6f 6b |\n$/) {p|rint "ok|
|00000330| 20 34 5c 6e 22 3b 7d 20 | 65 6c 73 65 20 7b 70 72 | 4\n";} |else {pr|
|00000340| 69 6e 74 20 22 6e 6f 74 | 20 6f 6b 20 34 5c 6e 22 |int "not| ok 4\n"|
|00000350| 3b 7d 0d 60 64 65 6c 65 | 74 65 20 2d 79 20 43 6f |;}.`dele|te -y Co|
|00000360| 6d 70 2e 74 72 79 60 3b | 0d 0d 69 66 20 28 24 5f |mp.try`;|..if ($_|
|00000370| 20 65 71 20 24 79 29 20 | 7b 70 72 69 6e 74 20 22 | eq $y) |{print "|
|00000380| 6f 6b 20 35 5c 6e 22 3b | 7d 20 65 6c 73 65 20 7b |ok 5\n";|} else {|
|00000390| 70 72 69 6e 74 20 22 6e | 6f 74 20 6f 6b 20 35 5c |print "n|ot ok 5\|
|000003a0| 6e 22 3b 7d 0d 00 00 00 | 00 00 00 00 00 00 00 00 |n";}....|........|
|000003b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000003f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000400| 00 00 01 00 00 00 01 6e | 00 00 00 6e 00 00 00 3e |.......n|...n...>|
|00000410| 00 00 01 33 05 6d 6f 64 | 2e 74 02 00 00 00 54 45 |...3.mod|.t....TE|
|00000420| 58 54 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |XT......|........|
|00000430| 0b 6d 75 6c 74 69 6c 69 | 6e 65 2e 74 02 00 00 00 |.multili|ne.t....|
|00000440| 54 45 58 54 4d 50 53 20 | 00 00 00 00 00 00 00 00 |TEXTMPS |........|
|00000450| 00 00 54 45 58 54 4d 50 | 53 20 00 00 00 00 00 00 |..TEXTMP|S ......|
|00000460| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000470| 00 00 a5 8c 0c 13 00 00 | 03 25 00 00 01 ac 00 00 |........|.%......|
|00000480| 10 00 00 00 01 33 0a 6d | 6f 64 2e 74 2e 6f 72 69 |.....3.m|od.t.ori|
|00000490| 67 80 02 00 00 00 54 45 | 58 54 4d 50 53 20 00 00 |g.....TE|XTMPS ..|
|000004a0| 2b 5a 00 4b 00 00 00 00 | 06 0e 00 00 00 00 02 96 |+Z.K....|........|
|000004b0| 00 00 08 00 00 00 00 00 | 01 ac 00 00 08 00 a4 40 |........|.......@|
|000004c0| a7 61 a5 57 31 1c 00 00 | 00 00 00 00 00 00 00 00 |.a.W1...|........|
|000004d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 3f ee 00 01 |........|....?...|
|000004e0| 00 00 00 00 00 00 00 00 | 3f ef 00 01 00 00 00 00 |........|?.......|
|000004f0| 00 00 00 00 00 00 00 00 | 10 00 00 00 01 33 0a 6d |........|.....3.m|
|00000500| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 3a 31 35 |...H..Mo|naco.:15|
|00000510| 20 6c 77 61 6c 6c 20 4c | 6f 63 6b 65 64 20 24 0d | lwall L|ocked $.|
|00000520| 0d 70 72 69 6e 74 00 06 | 00 03 00 50 00 20 01 dd |.print..|...P. ..|
|00000530| 02 3d 00 50 00 20 01 dd | 02 3d a5 8c df f4 00 00 |.=.P. ..|.=......|
|00000540| 02 dd 00 00 02 dd 00 00 | 01 ac 01 00 00 00 00 1e |........|........|
|00000550| 00 50 00 20 01 dd 02 3d | 00 50 00 20 01 dd 02 3d |.P. ...=|.P. ...=|
|00000560| 00 00 01 ac 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000570| 01 00 00 00 01 6e 00 00 | 00 6e 00 00 00 3e 00 2b |.....n..|.n...>.+|
|00000580| a4 ec 0b c2 00 00 00 1c | 00 3e 00 00 4d 50 53 52 |........|.>..MPSR|
|00000590| 00 01 00 0a 03 ed ff ff | 00 00 00 00 00 00 00 00 |........|........|
|000005a0| 03 f0 ff ff 00 00 00 4c | 00 31 af 88 00 00 00 00 |.......L|.1......|
|000005b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000005f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+